home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / misc / avmNfax1_33.lha / AVMSuite / source / retrievemessages.avmsrc < prev    next >
Text File  |  1994-06-24  |  9KB  |  447 lines
  1. startrecord=true
  2. label=aaretrievemessages
  3. nodetype=8
  4. line1=procedure
  5. line2=parse arg mailbox, isOutgoing, whichMailbox
  6. line3=
  7. line4=
  8. line5=
  9. line6=
  10. line7=
  11. line8=
  12. line9=
  13. line10=
  14. nextactiontype=3
  15. nextactionaction=
  16. endrecord=true
  17. startrecord=true
  18. label=
  19. nodetype=8
  20. line1=logs = showdir(logFile(mailbox, ''))
  21. line2=numlogs = words(logs)
  22. line3=currentlog = 1
  23. line4=
  24. line5=
  25. line6=
  26. line7=
  27. line8=
  28. line9=
  29. line10=
  30. nextactiontype=3
  31. nextactionaction=
  32. endrecord=true
  33. startrecord=true
  34. label=retrievemessagesnext
  35. nodetype=8
  36. line1=if currentlog > numlogs then signal retrievemessagesdone
  37. line2=currentHandle = word(logs, currentLog)
  38. line3=call loadLogEntry(mailbox, currentHandle)
  39. line4=
  40. line5=if (isOutgoing & ( log.returnRetry = '' | log.returnRetry = 0 | (upper(log.origMailbox) ~= upper(whichMailbox) & upper(log.origMailbox) ~= 'ANONYMOUS'))) then do
  41. line6=  currentLog = currentLog + 1
  42. line7=
  43. line8=  signal retrieveMessagesNext
  44. line9=
  45. line10=end
  46. nextactiontype=3
  47. nextactionaction=
  48. endrecord=true
  49. startrecord=true
  50. label=retrievemessagesagain
  51. nodetype=8
  52. line1=logtype = upper(log.type)
  53. line2=if logtype = 'FAX' then signal isfax
  54. line3=else if logtype = 'VOICE' then signal isvoice
  55. line4=else signal isunknown
  56. line5=
  57. line6=
  58. line7=
  59. line8=
  60. line9=
  61. line10=
  62. nextactiontype=3
  63. nextactionaction=
  64. endrecord=true
  65. startrecord=true
  66. label=isfax
  67. nodetype=1
  68. filename='avm:voices/FaxMessage'
  69. comment=This is a fax entry.
  70. keyactiontype=3
  71. keyactionaction=
  72. faxactiontype=0
  73. faxactionaction=stdfax
  74. dataactiontype=0
  75. dataactionaction=stddata
  76. busyactiontype=0
  77. busyactionaction=stdbusy
  78. abortactiontype=0
  79. abortactionaction=stdabort
  80. erroractiontype=0
  81. erroractionaction=stderror
  82. nextactiontype=0
  83. nextactionaction=aftertype
  84. endrecord=true
  85. startrecord=true
  86. label=isvoice
  87. nodetype=2
  88. frequency1=3000
  89. frequency2=0
  90. duration=4
  91. keyactiontype=3
  92. keyactionaction=
  93. faxactiontype=3
  94. faxactionaction=
  95. dataactiontype=3
  96. dataactionaction=
  97. busyactiontype=3
  98. busyactionaction=
  99. abortactiontype=0
  100. abortactionaction=stdabort
  101. erroractiontype=0
  102. erroractionaction=stderror
  103. nextactiontype=3
  104. nextactionaction=
  105. endrecord=true
  106. startrecord=true
  107. label=
  108. nodetype=1
  109. filename=voiceFile(mailbox, log.filename)
  110. comment=
  111. keyactiontype=3
  112. keyactionaction=
  113. faxactiontype=3
  114. faxactionaction=
  115. dataactiontype=3
  116. dataactionaction=
  117. busyactiontype=3
  118. busyactionaction=
  119. abortactiontype=0
  120. abortactionaction=stdabort
  121. erroractiontype=3
  122. erroractionaction=
  123. nextactiontype=3
  124. nextactionaction=
  125. endrecord=true
  126. startrecord=true
  127. label=
  128. nodetype=12
  129. nextactiontype=3
  130. nextactionaction=
  131. endrecord=true
  132. startrecord=true
  133. label=
  134. nodetype=2
  135. frequency1=3000
  136. frequency2=0
  137. duration=4
  138. keyactiontype=3
  139. keyactionaction=
  140. faxactiontype=3
  141. faxactionaction=
  142. dataactiontype=3
  143. dataactionaction=
  144. busyactiontype=3
  145. busyactionaction=
  146. abortactiontype=0
  147. abortactionaction=stdabort
  148. erroractiontype=0
  149. erroractionaction=stderror
  150. nextactiontype=0
  151. nextactionaction=aftertype
  152. endrecord=true
  153. startrecord=true
  154. label=isunknown
  155. nodetype=1
  156. filename='avm:voices/UnknownMessage'
  157. comment=This is an unknown message.
  158. keyactiontype=3
  159. keyactionaction=
  160. faxactiontype=0
  161. faxactionaction=stdfax
  162. dataactiontype=0
  163. dataactionaction=stddata
  164. busyactiontype=0
  165. busyactionaction=stdbusy
  166. abortactiontype=0
  167. abortactionaction=stdabort
  168. erroractiontype=0
  169. erroractionaction=stderror
  170. nextactiontype=0
  171. nextactionaction=aftertype
  172. endrecord=true
  173. startrecord=true
  174. label=aftertype
  175. nodetype=3
  176. filename='avm:voices/RetrieveMessages'
  177. comment=Enter 1 to play the message again, 2 to play the time, 3 to play the telephone numbers, 4 to listen to the next message, 5 to delete this message, 6 to archive this message, 7 to forward this message, 8 to reply to it [0=repeat menu, *=hangup, #=previous menu]
  178. retries=3
  179. zeroactiontype=0
  180. zeroactionaction=aftertype
  181. oneactiontype=0
  182. oneactionaction=retrievemessagesagain
  183. twoactiontype=2
  184. twoactionaction=call playtimedate()
  185. threeactiontype=2
  186. threeactionaction=call playtelcidnumber()
  187. fouractiontype=0
  188. fouractionaction=processNextMessage
  189. fiveactiontype=2
  190. fiveactionaction=address rexx 'delete' mailbox currentHandle; signal processNextMessage
  191. sixactiontype=2
  192. sixactionaction=if isOutgoing = 0 then address rexx 'archive' mailbox currentHandle; else address rexx 'archiveoutgoing' mailbox currentHandle; signal processNextMessage
  193. sevenactiontype=2
  194. sevenactionaction=call forwardmessage(mailbox, currentHandle)
  195. eightactiontype=2
  196. eightactionaction=call replymessage(mailbox, currentHandle)
  197. nineactiontype=3
  198. nineactionaction=
  199. poundactiontype=2
  200. poundactionaction=return
  201. staractiontype=0
  202. staractionaction=answervoiceDone
  203. faxactiontype=0
  204. faxactionaction=stdfax
  205. dataactiontype=0
  206. dataactionaction=stddata
  207. busyactiontype=0
  208. busyactionaction=stdbusy
  209. timedoutactiontype=0
  210. timedoutactionaction=answerVoiceDone
  211. abortactiontype=0
  212. abortactionaction=stdabort
  213. erroractiontype=0
  214. erroractionaction=stderror
  215. nextactiontype=0
  216. nextactionaction=aftertype
  217. endrecord=true
  218. startrecord=true
  219. label=processNextMessage
  220. nodetype=8
  221. line1=currentLog = currentLog + 1
  222. line2=
  223. line3=
  224. line4=
  225. line5=
  226. line6=
  227. line7=
  228. line8=
  229. line9=
  230. line10=
  231. nextactiontype=0
  232. nextactionaction=retrievemessagesnext
  233. endrecord=true
  234. startrecord=true
  235. label=playtimedate
  236. nodetype=8
  237. line1=actualTime = convertToTime(log.time)
  238. line2=actualDate = convertToDate(log.time)
  239. line3=call playTime(actualTime)
  240. line4=actualDate = date('s', actualDate) /* convert to sorted */
  241. line5=call playDate(actualDate)
  242. line6=
  243. line7=
  244. line8=
  245. line9=
  246. line10=
  247. nextactiontype=3
  248. nextactionaction=
  249. endrecord=true
  250. startrecord=true
  251. label=
  252. nodetype=12
  253. nextactiontype=3
  254. nextactionaction=
  255. endrecord=true
  256. startrecord=true
  257. label=
  258. nodetype=8
  259. line1=
  260. line2=
  261. line3=
  262. line4=
  263. line5=
  264. line6=
  265. line7=
  266. line8=
  267. line9=
  268. line10=
  269. nextactiontype=2
  270. nextactionaction=return
  271. endrecord=true
  272. startrecord=true
  273. label=playtelcidnumber
  274. nodetype=1
  275. filename='avm:voices/cidnumber'
  276. comment=The CID number is...
  277. keyactiontype=3
  278. keyactionaction=
  279. faxactiontype=0
  280. faxactionaction=stdfax
  281. dataactiontype=0
  282. dataactionaction=stddata
  283. busyactiontype=0
  284. busyactionaction=stdbusy
  285. abortactiontype=0
  286. abortactionaction=stdabort
  287. erroractiontype=0
  288. erroractionaction=stderror
  289. nextactiontype=3
  290. nextactionaction=
  291. endrecord=true
  292. startrecord=true
  293. label=
  294. nodetype=8
  295. line1=if symbol('log.cidnumber') = 'VAR' then
  296. line2=  call playNumber(log.cidnumber)
  297. line3=
  298. line4=
  299. line5=
  300. line6=
  301. line7=
  302. line8=
  303. line9=
  304. line10=
  305. nextactiontype=3
  306. nextactionaction=
  307. endrecord=true
  308. startrecord=true
  309. label=
  310. nodetype=12
  311. nextactiontype=3
  312. nextactionaction=
  313. endrecord=true
  314. startrecord=true
  315. label=
  316. nodetype=1
  317. filename='avm:voices/returnnumber'
  318. comment=The return number is...
  319. keyactiontype=3
  320. keyactionaction=
  321. faxactiontype=0
  322. faxactionaction=stdfax
  323. dataactiontype=0
  324. dataactionaction=stddata
  325. busyactiontype=0
  326. busyactionaction=stdbusy
  327. abortactiontype=0
  328. abortactionaction=stdabort
  329. erroractiontype=0
  330. erroractionaction=stderror
  331. nextactiontype=3
  332. nextactionaction=
  333. endrecord=true
  334. startrecord=true
  335. label=
  336. nodetype=8
  337. line1=if symbol('log.returnnumber') = 'VAR' then
  338. line2=  call playNumber(log.returnnumber)
  339. line3=
  340. line4=
  341. line5=
  342. line6=
  343. line7=
  344. line8=
  345. line9=
  346. line10=
  347. nextactiontype=3
  348. nextactionaction=
  349. endrecord=true
  350. startrecord=true
  351. label=
  352. nodetype=12
  353. nextactiontype=2
  354. nextactionaction=return
  355. endrecord=true
  356. startrecord=true
  357. label=retrievemessagesdone
  358. nodetype=1
  359. filename='avm:voices/NoMoreMessages'
  360. comment=That's all folks!/There are no more messages.
  361. keyactiontype=3
  362. keyactionaction=
  363. faxactiontype=0
  364. faxactionaction=stdfax
  365. dataactiontype=0
  366. dataactionaction=stddata
  367. busyactiontype=0
  368. busyactionaction=stdbusy
  369. abortactiontype=0
  370. abortactionaction=stdabort
  371. erroractiontype=0
  372. erroractionaction=stderror
  373. nextactiontype=2
  374. nextactionaction=return
  375. endrecord=true
  376. startrecord=true
  377. label=replyMessage
  378. nodetype=8
  379. line1=procedure
  380. line2=parse arg mailbox, magicCookie
  381. line3=call loadLogEntry(mailbox, magicCookie)
  382. line4=
  383. line5=number = log.returnNumber
  384. line6=if number = '' then number = log.cidNumber
  385. line7=handle = makeUniqueFile()
  386. line8=sent = sendMessageTo('Outgoing', mailbox, number, handle, 'Voice', voiceFile(mailbox, 'Introduction'), log.cidNumber, log.cidName)
  387. line9=
  388. line10=
  389. nextactiontype=3
  390. nextactionaction=
  391. endrecord=true
  392. startrecord=true
  393. label=
  394. nodetype=8
  395. line1=
  396. line2=
  397. line3=
  398. line4=
  399. line5=
  400. line6=
  401. line7=
  402. line8=
  403. line9=
  404. line10=
  405. nextactiontype=2
  406. nextactionaction=return
  407. endrecord=true
  408. startrecord=true
  409. label=forwardMessage
  410. nodetype=8
  411. line1=procedure
  412. line2=parse arg mailbox, magicCookie
  413. line3=
  414. line4=call loadLogEntry(mailbox, magicCookie)
  415. line5=
  416. line6=
  417. line7=
  418. line8=
  419. line9=
  420. line10=
  421. nextactiontype=3
  422. nextactionaction=
  423. endrecord=true
  424. startrecord=true
  425. label=
  426. nodetype=8
  427. line1=
  428. line2=
  429. line3=
  430. line4=
  431. line5=
  432. line6=
  433. line7=if verify(log.fileName, '/:', 'M') = 0 then
  434. line8=  address command 'copy >nil: <nil:' voiceFile(mailbox, log.fileName) || '#?' voiceFile('Outgoing', '')
  435. line9=
  436. line10=sent = sendMessageTo('Outgoing', mailbox, '', log.fileName, log.type, voiceFile(mailbox, 'Introduction'), log.cidName, log.cidNumber)
  437. nextactiontype=2
  438. nextactionaction=return
  439. endrecord=true
  440. startrecord=true
  441. label=
  442. nodetype=7
  443. filename=avm:rexx/sendmessageto.avm
  444. nextactiontype=3
  445. nextactionaction=
  446. endrecord=true
  447.